home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 1.adf / include / exec / libraries.i < prev    next >
Text File  |  1988-10-06  |  1KB  |  65 lines
  1.     IFND    EXEC_LIBRARIES_I
  2. EXEC_LIBRARIES_I    SET    1
  3.     IFND    EXEC_NODES_I
  4.     INCLUDE    "exec/nodes.i"
  5.     ENDC
  6. LIB_VECTSIZE    EQU    6
  7. LIB_RESERVED    EQU    4
  8. LIB_BASE    EQU    $FFFFFFFA
  9. LIB_USERDEF    EQU    LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE)
  10. LIB_NONSTD    EQU    LIB_USERDEF
  11. LIBINIT    MACRO
  12.     IFC    '\1',''
  13. COUNT_LIB    SET    LIB_USERDEF
  14.     ENDC
  15.     IFNC    '\1',''
  16. COUNT_LIB    SET    \1
  17.     ENDC
  18.     ENDM
  19. LIBDEF    MACRO
  20. \1    EQU    COUNT_LIB
  21. COUNT_LIB    SET    COUNT_LIB-LIB_VECTSIZE
  22.     ENDM
  23.     LIBINIT    LIB_BASE
  24.     LIBDEF    LIB_OPEN
  25.     LIBDEF    LIB_CLOSE
  26.     LIBDEF    LIB_EXPUNGE
  27.     LIBDEF    LIB_EXTFUNC
  28.     rsreset
  29. LIB    rs.b    LN_SIZE
  30. LIB_FLAGS    rs.b    1
  31. LIB_pad    rs.b    1
  32. LIB_NEGSIZE    rs.w    1
  33. LIB_POSSIZE    rs.w    1
  34. LIB_VERSION    rs.w    1
  35. LIB_REVISION    rs.w    1
  36. LIB_IDSTRING    rs.l    1
  37. LIB_SUM    rs.l    1
  38. LIB_OPENCNT    rs.w    1
  39. LIB_SIZE    rs.w    0
  40. LIBB_SUMMING    equ    0
  41. LIBF_SUMMING    equ    1<<0
  42. LIBB_CHANGED    equ    1
  43. LIBF_CHANGED    equ    1<<1
  44. LIBB_SUMUSED    equ    2
  45. LIBF_SUMUSED    equ    1<<2
  46. LIBB_DELEXP    equ    3
  47. LIBF_DELEXP    equ    1<<3
  48. CALLLIB    MACRO
  49.     IFGT    NARG-1
  50.     FAIL    !!!
  51.     ENDC
  52.     JSR    \1(A6)
  53.     ENDM
  54. LINKLIB    MACRO
  55.     IFGT    NARG-2
  56.     FAIL    !!!
  57.     ENDC
  58.     MOVE.L    A6,-(SP)
  59.     MOVE.L    \2,A6
  60.     CALLLIB    \1
  61.     MOVE.L    (SP)+,A6
  62.     ENDM
  63.     ENDC
  64.  
  65.